5 PRINTCHR$(142):HS=0:GOSUB1100:POKE53280,0
10 PRINT""SPC(8)"[153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215][153][209][215]"
20 PRINTSPC(7)"[215][158][169][146]                    [223][146][153][209]"
30 PRINTSPC(6)"[153][209][158][169] [146]                     [223][146][215]"
40 PRINTSPC(5)"[215][158][169]  [146]                      [223][146][153][209]"
50 PRINTSPC(4)"[209][158][169]   [146]                       [223][146][215]"
60 PRINTSPC(4)"[215][158]    [146]                        [146][153][209]"
70 PRINTSPC(4)"[209][158]    [146]                        [146][215]"
80 PRINTSPC(4)"[215][158]    [146]                        [146][153][209]"
90 PRINTSPC(4)"[153][209][158]  [146][169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223]  [146][215]"
100 PRINTSPC(4)"[215][158][169][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223][153][209]"
110 PRINTSPC(5)"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
120 PRINTSPC(5)"[218][218]   [146][218][218] [146][218][218] [146][218]    [146][218] [146][218][218] [146][218]    [146][218][218]"
130 PRINTSPC(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218] [146][218] [146][218][218] [146][218][218][218][218][218]"
140 PRINTSPC(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218]  [146][218][218][218]    [146][218][218]"
150 PRINTSPC(5)"[218][218] [146][218][218] [146][218] [146][218][218] [146][218] [146][218][218][218][218] [146][218] [146][218][218][218][218][218] [146][218][218]"
160 PRINTSPC(5)"[218][218]   [146][218][218]    [146][218]    [146][218] [146][218][218] [146][218]    [146][218][218]"
170 PRINTSPC(5)"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
180 PRINTSPC(5)"[158][207][163][163][163][163][208][159]SHOOTING GALLERY[158][207][163][163][163][163][208]"
190 PRINTSPC(5)"[165]    [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]    [167]"
200 PRINTSPC(5)"[158][204][164][164][164][206]                  [146][205][164][164][164][186]"
210 PRINTSPC(8)"[158][167][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][146][165]"
215 PRINTSPC(8)"[158][167]                    [146][165]"
220 FORD1=12288TO12350:READS1:POKED1,S1:NEXT
230 FORD2=12352TO12414:READS2:POKED2,S2:NEXT
240 FORD3=12416TO12478:READS3:POKED3,S3:NEXT
250 V=53248:S=54272:POKEV+39,13:POKEV+40,7:POKEV+21,3:POKES+24,15:POKES,220
255 M=56320:O=65520:SC=0:TG=0:B=0:R=0
260 POKES+1,68:POKES+5,15:POKES+6,215:POKES+7,120:POKES+8,100:POKES+12,15
270 POKES+13,215:P1=192:P2=193:P3=195:X1=100:Y1=100:X2=70:H=2
280 Y2=INT(RND(1)*40)+70:R=R+1:POKEV+21,3:H=H+.4:IFH>33THENH=H-2.4
285 FORX2=70TO255STEPH
290 POKE2040,P1
300 POKE2041,P2:P2=P2+1:IFP2>194THENP2=193
310 GOSUB500
320 IFJV=1ORJV=5ORJV=9THENY1=Y1-4:IFY1<68THENY1=Y1+4
330 IFJV=2ORJV=6ORJV=10THENY1=Y1+4:IFY1>118THENY1=Y1-4
340 IFJV=4ORJV=5ORJV=6THENX1=X1-4:IFX1<90THENX1=X1+4
350 IFJV=8ORJV=9ORJV=10THENX1=X1+4:IFX1>240THENX1=X1-4
355 IFFR=0ANDPEEK(V+30)AND1=1THEN600
360 POKEV,X1:POKEV+1,Y1
370 POKEV+2,X2:POKEV+3,Y2
400 NEXTX2:IFR>3THENPOKEV+21,1:GOTO900
410 GOTO280
500 JV=PEEK(M)
510 FR=JVAND16
520 JV=15-(JVAND15)
530 RETURN
600 POKEV+21,1:POKES+4,129:POKES+4,128:R=0
605 IFNOTPEEK(V+30)AND1=1THEN610
610 POKEV+2,70:POKEV+3,90
630 SC=SC+1:IFSC=10ORSC=20ORSC=30ORSC=40ORSC=50ORSC=60ORSC=70ORSC=80THEN700
650 GOTO280
700 FORL=1TO10:W=0:Y=INT(RND(1)*12)+12:X=INT(RND(1)*5)+5
701 POKE783,PEEK(783)AND254:POKE781,X:POKE782,Y:SYSO:PRINT"[215]"
705 GOSUB500
706 IFJV=1ORJV=5ORJV=9THENY1=Y1-4:IFY1<68THENY1=Y1+4
707 IFJV=2ORJV=6ORJV=10THENY1=Y1+4:IFY1>118THENY1=Y1-4
708 IFJV=4ORJV=5ORJV=6THENX1=X1-4:IFX1<90THENX1=X1+4
709 IFJV=8ORJV=9ORJV=10THENX1=X1+4:IFX1>240THENX1=X1-4
720 IFFR=0ANDPEEK(V+31)AND1=1THEN800
730 W=W+1
740 IFSC<40ANDW=30THENSYSO:PRINT" ":NEXTL:PRINT" "
745 IFSC=>40ANDW=25THENSYSO:PRINT" ":NEXTL:PRINT" "
750 POKEV,X1:POKEV+1,Y1
760 IFL<11THEN705
780 PRINT" ":GOTO280
800 POKES+4,33:POKES+4,32:POKE783,PEEK(783)AND254:POKE781,X:POKE782,Y:SYSO:PRINT" "
805 TG=TG+50
810 IFNOTPEEK(V+31)AND1=1THENNEXTL
820 POKE783,PEEK(783)AND254:POKE781,X:POKE782,Y:SYSO:PRINT" ":GOTO280
900 POKEV+21,1:CS=SC*25+TG:PRINT""SPC(14)"[159]SCORE:"CS
905 IFCS>HSTHENHS=CS
910 FORL=1TO10
920 PRINT""SPC(14)"[155]GAME[146]   OVER[146]":FORG=1TO50:NEXTG
930 PRINT""SPC(14)"[155]GAME   OVER":FORG=1TO50:NEXTG
940 NEXTL:PRINT""SPC(11)"HIGH SCORE:"HS
945 Y2=INT(RND(1)*25)+75
950 FORX2=75TO255STEP5
955 POKEV+2,X2:POKEV+3,Y2
960 POKE2041,193
970 IFA$=""THENPRINT""SPC(9)"HIT ANY KEY TO START":FORG=1TO50:NEXT
980 PRINT""SPC(9)"[156]HIT ANY KEY TO START":FORG=1TO50:NEXT
985 POKE2041,194
990 GETA$:IFA$=""THENGOTO1000
1000 IFA$<>""THEN1020
1010 NEXTX2:GOTO945
1020 PRINT""SPC(14)"             "
1030 PRINT""SPC(14)"           "
1040 PRINT""SPC(9)"                    "
1045 PRINT""SPC(11)"                 "
1050 GOTO255
1100 POKE53281,7:POKE53280,0
1120 PRINT"[147]"SPC(13)"***[144]WELCOME***"
1140 PRINT""SPC(14)"DUCK--SHOOT"
1160 PRINTSPC(8)"A SHOOTING GALLERY GAME"
1180 PRINTSPC(5)"[144]DUCKS ARE WORTH 25 PTS EACH"
1200 PRINTSPC(5)"WHEN YOU SHOOT DOWN 10 DUCKS"
1210 PRINTSPC(5)"YOU ENTER A TIMED TARGET ROUND"
1220 PRINTSPC(5)"TARGETS ARE WORTH 50 PTS EACH"
1230 PRINTSPC(5)"THE MORE DUCKS YOU SHOOT[144] DOWN"
1240 PRINTSPC(5)"THE FASTER[144] THEY WILL GO"
1241 PRINTSPC(5)"WHEN YOU MISS 4 DUCKS IN A ROW"
1242 PRINTSPC(5)"THE GAME IS OVER"
1245 PRINTSPC(5)"USE JOYSTICK--PORT #2"
1250 PRINT""SPC(8)"PRESS ANY KEY TO BEGIN":FORL=1TO90:NEXT
1255 PRINT""SPC(8)"[158]PRESS ANY KEY TO BEGIN":FORL=1TO10:NEXT
1260 GETA$:IFA$=""THEN1250
1270 PRINT"[147]":POKE53281,6
1300 RETURN
2000 DATA 0,0,0,0,0,0,0,0
2010 DATA 0,0,0,0,0,0,0,0
2020 DATA 0,0,0,0,0,0,40,0
2030 DATA 0,146,0,1,17,0,1,85
2040 DATA 0,1,17,0,0,146,0,0
2050 DATA 40,0,0,0,0,0,0,0
2060 DATA 0,0,0,0,0,0,0,0
2070 DATA 0,0,0,0,0,0,0
2080 DATA 0,0,0,0,0,0,0,0
2090 DATA 0,0,0,0,0,0,0,0
2100 DATA 0,160,0,1,80,0,1,31
2110 DATA 0,2,213,0,5,0,2,169
2120 DATA 0,11,233,64,53,86,32,238
2130 DATA 236,32,21,64,32,5,128,64
2140 DATA 0,85,0,0,0,0,0,0
2150 DATA 0,0,0,0,0,0,0
2160 DATA 0,0,0,0,0,0,0,0
2170 DATA 0,0,0,0,0,0,0,0
2180 DATA 0,160,0,1,80,0,1,31
2190 DATA 0,2,240,0,5,14,2,169
2200 DATA 0,11,233,64,53,86,32,239
2210 DATA 188,32,21,64,32,5,128,64
2220 DATA 0,85,0,0,0,0,0,0
2230 DATA 0,0,0,0,0,0,0